home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / 0043125.lsp < prev    next >
Lisp/Scheme  |  1998-03-15  |  12KB  |  263 lines
  1. ;=============431.25 SCHARNIER 6 PA, links
  2.  
  3. (EAITDBL "0043125")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:0043125Z1 (/ P1 P2 L n i Wi Wix LGes P)
  8.    (EAITDBL "0043125")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 1)
  13.    (setvar "OSMODE" 9)
  14.    (setq L (- EAITlmin 1))
  15.    (while (< L EAITlmin)
  16.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "006")" "(EAITmg "mb_mld10" "015")))    ;Startpunkt (Return = relativ):
  17.       (setq P1 (getpoint))
  18.       (if (= P1 nil)(setq P1 (EAITrpt)))
  19.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "007")" "(EAITmg "mb_mld10" "015")))    ;Endpunkt (Return = relativ): 
  20.       (setq P2 (getpoint P1))
  21.       (initget 4 "?")
  22.       (EAITmsg "mb_mld12" "\n" "005" " ")            ;Anzahl der Scharniere (2,3,...,?): <2>
  23.       (setq n (getint))
  24.       (setq Wi   (angle P1 P2)     )
  25.       (setq Wix  (- (EAITbig Wi) 90)   )
  26.       (setq LGes (distance P1 P2)  )
  27.       (cond ((= n nil)(setq n 2))
  28.             ((= n  0 )(setq n 2))
  29.             ((= n "?")(progn
  30.                           (setq n (1+ (fix (+ (/ LGes 600) 0.5))))
  31.                           (if (< n 2)(setq n 2))
  32.                       )
  33.             )
  34.       )
  35.       (setq L    (/ (- LGes 160)(float (- n 1))))
  36.       (if (< L EAITlmin)(progn (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "007" " ")))  
  37.                        ;Ungültige Eingabe: es werden min. 32mm je Scharnier benötigt!
  38.    )
  39.    (setq P (polar P1 Wi 80) )
  40.    (setvar "ORTHOMODE" 0)
  41.    (setvar "OSMODE" 0)
  42.    (repeat n
  43.          (EAITDBL "0043125")
  44.          (command EAITege (strcat EAITpfn "43125vz") P "" "" EAITofkei Wix
  45.                   EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 72)) 13.5) "" "" Wix
  46.                            EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  47.          )
  48.          (EAITDBL "0043465")
  49.       (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 14)) 15.5) "" "" Wix
  50.                            EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  51.          )
  52.          (setq P (polar P Wi L))
  53.    )
  54.    (EAITvarz2)
  55.    (princ)
  56. )
  57.  
  58.  
  59.  
  60.  
  61. (defun C:0043125Z2 (/ P1 P2 L n i Wi Wix LGes P)
  62.    (EAITDBL "0043125")
  63.    (princ (strcat "\n\n" EAITbez1))
  64.    (EAITvari)
  65.    (EAITvars)
  66.    (setvar "ORTHOMODE" 1)
  67.    (setvar "OSMODE" 9)
  68.    (setq L (- EAITlmin 1))
  69.    (while (< L EAITlmin)
  70.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "006")" "(EAITmg "mb_mld10" "015")))    ;Startpunkt (Return = relativ):
  71.       (setq P1 (getpoint))
  72.       (if (= P1 nil)(setq P1 (EAITrpt)))
  73.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "007")" "(EAITmg "mb_mld10" "015")))    ;Endpunkt (Return = relativ): 
  74.       (setq P2 (getpoint P1))
  75.       (initget 4 "?")
  76.       (EAITmsg "mb_mld12" "\n" "005" " ")            ;Anzahl der Scharniere (2,3,...,?): <2>
  77.       (setq n (getint))
  78.       (setq Wi   (angle P1 P2)     )
  79.       (setq Wix  (- (EAITbig Wi) 90)   )
  80.       (setq LGes (distance P1 P2)  )
  81.       (cond ((= n nil)(setq n 2))
  82.             ((= n  0 )(setq n 2))
  83.             ((= n "?")(progn
  84.                           (setq n (1+ (fix (+ (/ LGes 600) 0.5))))
  85.                           (if (< n 2)(setq n 2))
  86.                       )
  87.             )
  88.       )
  89.       (setq L    (/ (- LGes 160)(float (- n 1))))
  90.       (if (< L EAITlmin)(progn (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "007" " ")))  
  91.                        ;Ungültige Eingabe: es werden min. 32mm je Scharnier benötigt!
  92.    )
  93.    (setq P    (polar P1 Wi 80) )
  94.    (setvar "ORTHOMODE" 0)
  95.    (setvar "OSMODE" 0)
  96.    (setq i 1)
  97.    (repeat n
  98.          (if (< i n)
  99.             (progn (command EAITege (strcat EAITpfn "43125sz") P "" "" EAITofkei Wix)
  100.                    (EAITDBL "0043125")
  101.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 51)) 14) "" "" Wix
  102.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  103.                     )
  104.                     (EAITDBL "0043465")
  105.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (- Wi (EAITgib 90)) 1.5) "" "" Wix
  106.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  107.                     )
  108.             )
  109.          (progn (command EAITege (strcat EAITpfn "43125sz") P "" "" EAITofkei Wix)
  110.                    (EAITDBL "0043125")
  111.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 51)) 14) "" "" Wix
  112.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  113.                     )  
  114.                     (EAITDBL "0043465")
  115.                     (command EAITege (strcat EAITpfn "EAITinfo") (polar P (- Wi (EAITgib 90)) 1.5) "" "" Wix
  116.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  117.                     )
  118.          )
  119.          )
  120.          (setq P (polar P Wi L)
  121.                i (1+ i))
  122.    )
  123.    (EAITvarz2)
  124.    (princ)
  125. )
  126.  
  127.  
  128.  
  129. (defun C:0043125Z3 (/ P1 P2 L n i Wi Wix LGes P)
  130.    (EAITDBL "0043125")
  131.    (princ (strcat "\n\n" EAITbez1))
  132.    (EAITvari)
  133.    (EAITvars)
  134.    (setvar "ORTHOMODE" 1)
  135.    (setvar "OSMODE" 9)
  136.    (setq L (- EAITlmin 1))
  137.    (while (< L EAITlmin)
  138.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "006")" "(EAITmg "mb_mld10" "015")))    ;Startpunkt (Return = relativ):
  139.       (setq P1 (getpoint))
  140.       (if (= P1 nil)(setq P1 (EAITrpt)))
  141.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "007")" "(EAITmg "mb_mld10" "015")))    ;Endpunkt (Return = relativ): 
  142.       (setq P2 (getpoint P1))
  143.       (initget 4 "?")
  144.       (EAITmsg "mb_mld12" "\n" "005" " ")            ;Anzahl der Scharniere (2,3,...,?): <2>
  145.       (setq n (getint))
  146.       (setq Wi   (angle P1 P2)     )
  147.       (setq Wix  (- (EAITbig Wi) 90)   )
  148.       (setq LGes (distance P1 P2)  )
  149.       (cond ((= n nil)(setq n 2))
  150.             ((= n  0 )(setq n 2))
  151.             ((= n "?")(progn
  152.                           (setq n (1+ (fix (+ (/ LGes 600) 0.5))))
  153.                           (if (< n 2)(setq n 2))
  154.                       )
  155.             )
  156.       )
  157.       (setq L    (/ (- LGes 160)(float (- n 1))))
  158.       (if (< L EAITlmin)(progn (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "007" " ")))  
  159.                        ;Ungültige Eingabe: es werden min. 32mm je Scharnier benötigt!
  160.    )
  161.    (setq P    (polar P1 Wi 80) )
  162.    (setvar "ORTHOMODE" 0)
  163.    (setvar "OSMODE" 0)
  164.    (setq i 1)
  165.    (repeat n
  166.          (if (< i n)
  167.             (progn (command EAITege (strcat EAITpfn "43125vz") P "" "" EAITofkei Wix)
  168.                     (EAITDBL "0043125")
  169.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 72)) 13.5) "" "" Wix
  170.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  171.                     )
  172.                     (EAITDBL "0043465")
  173.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 14)) 15.5) "" "" Wix
  174.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  175.                     )
  176.          )
  177.             (progn (command EAITege (strcat EAITpfn "43123vz") P "" "" EAITofkei Wix)
  178.                     (EAITDBL "0043123")
  179.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 72)) 13.5) "" "" Wix
  180.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  181.                     )
  182.                     (EAITDBL "0043465")
  183.                     (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 14)) 15.5) "" "" Wix
  184.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  185.                     )
  186.          )
  187.          )
  188.          (setq P (polar P Wi L)
  189.                i (1+ i))
  190.    )
  191.    (EAITvarz2)
  192.    (princ)
  193. )
  194.  
  195.  
  196.  
  197. (defun C:0043125Z4 (/ P1 P2 L n i Wi Wix LGes P)
  198.    (EAITDBL "0043125")
  199.    (princ (strcat "\n\n" EAITbez1))
  200.    (EAITvari)
  201.    (EAITvars)
  202.    (setvar "ORTHOMODE" 1)
  203.    (setvar "OSMODE" 9)
  204.    (setq L (- EAITlmin 1))
  205.    (while (< L EAITlmin)
  206.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "006")" "(EAITmg "mb_mld10" "015")))    ;Startpunkt (Return = relativ):
  207.       (setq P1 (getpoint))
  208.       (if (= P1 nil)(setq P1 (EAITrpt)))
  209.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "007")" "(EAITmg "mb_mld10" "015")))    ;Endpunkt (Return = relativ): 
  210.       (setq P2 (getpoint P1))
  211.       (initget 4 "?")
  212.       (EAITmsg "mb_mld12" "\n" "005" " ")            ;Anzahl der Scharniere (2,3,...,?): <2>
  213.       (setq n (getint))
  214.       (setq Wi   (angle P1 P2)     )
  215.       (setq Wix  (- (EAITbig Wi) 90)   )
  216.       (setq LGes (distance P1 P2)  )
  217.       (cond ((= n nil)(setq n 2))
  218.             ((= n  0 )(setq n 2))
  219.             ((= n "?")(progn
  220.                           (setq n (1+ (fix (+ (/ LGes 600) 0.5))))
  221.                           (if (< n 2)(setq n 2))
  222.                       )
  223.             )
  224.       )
  225.       (setq L    (/ (- LGes 160)(float (- n 1))))
  226.       (if (< L EAITlmin)(progn (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "007" " ")))  
  227.                        ;Ungültige Eingabe: es werden min. 32mm je Scharnier benötigt!
  228.    )
  229.    (setq P    (polar P1 Wi 80) )
  230.    (setvar "ORTHOMODE" 0)
  231.    (setvar "OSMODE" 0)
  232.    (setq i 1)
  233.    (repeat n
  234.          (if (< i n)
  235.             (progn (command EAITege (strcat EAITpfn "43125sz") P "" "" EAITofkei Wix)
  236.                     (EAITDBL "0043125")
  237.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 51)) 14) "" "" Wix
  238.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  239.                     )
  240.                     (EAITDBL "0043465")
  241.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (- Wi (EAITgib 90)) 1.5) "" "" Wix
  242.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  243.                     )
  244.          )
  245.             (progn (command EAITege (strcat EAITpfn "43123sz") P "" "" EAITofkei Wix)
  246.                    (EAITDBL "0043123")
  247.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 51)) 14) "" "" Wix
  248.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  249.                     )
  250.                     (EAITDBL "0043465")
  251.                     (command EAITege (strcat EAITpfn "EAITinfo") (polar P (- Wi (EAITgib 90)) 1.5) "" "" Wix
  252.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  253.                     )
  254.          )
  255.          )
  256.          (setq P (polar P Wi L)
  257.                i (1+ i))
  258.    )
  259.    (EAITvarz2)
  260.    (princ)
  261. )
  262. (princ)
  263.